home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 14 / MUNDO14.iso / aplicat / pm65 / ARCHIVE.Z / Calendar 1....spt < prev    next >
Encoding:
Text File  |  1996-11-11  |  5.3 KB  |  223 lines
  1. -- Calendar 1 Template
  2. -- 1 October 96, vs
  3. -- Copyright 1996, Adobe Corporation. All rights reserved.
  4.  
  5. -- This script will allow you to create a calendar for
  6. -- a month and year which you select in the dialog.
  7.  
  8. -- Script must be run on an opened publication.It will 
  9. -- use existing margin settings for positioning the calendar.
  10.  
  11. set "January","February","March","April","May","June","July","August","September","October","November","December" >> m
  12. -- weekdays count starting Sunday
  13. set "S","M","T","W","T","F","S" >>weekdays.sun
  14. -- weekdays count starting Monday
  15. set "M","T","W","T","F","S","S" >>weekdays.mon
  16.  
  17. getpmstate >> pmstate
  18. if pmstate=1
  19.   message "Please open a publcation." 
  20.   message "Calendar spreadsheet will be"
  21.   message "created inside margin box."
  22.   rem
  23.   return
  24. endif
  25. deselect
  26. getobjectlist => nObj,...
  27. getplatform => def
  28. if def=MACINTOSH
  29. dialogbegin -120,-180,140,45,"Calendar"
  30.   pushbutton 180,15,240,35,"OK"
  31.   pushbutton 180,50,240,70,"Cancel"
  32.   listbox 10,10,150,154,m
  33.   listbox 160,90,240,154,"1996","1997","1998","1999","2000","2001","2002"
  34.   radiobutton 10,172,240,192,"Week starts Monday",1
  35.   radiobutton 10,194,240,214,"Week starts Sunday",0
  36. dialogend  => ButtonHit,...,...,month,year,w.mon,...
  37. elseif def=WINDOWS
  38. dialogbegin -50,-72,55,30,"Calendar"
  39.   pushbutton 70,6,99,18,"OK"
  40.   pushbutton 70,24,99,36,"Cancel"
  41.   listbox 4,4,60,68,m
  42.   listbox 64,42,100,68,"1996","1997","1998","1999","2000","2001","2002"
  43.   radiobutton 4,72,110,82,"Week starts Monday",1
  44.   radiobutton 4,84,110,94,"Week starts Sunday",0
  45. dialogend  => ButtonHit,...,...,month,year,w.mon,...
  46. endif
  47. if (ButtonHit="Cancel")+empty(ButtonHit)
  48.   return
  49. endif
  50.  
  51. if w.mon
  52. weekdays = weekdays.mon
  53. else
  54. weekdays = weekdays.sun
  55. endif
  56.  
  57. getsize => size
  58. getalignment => alignment
  59. getindents => indents
  60. getmeasureunits=>measureunits
  61. rem Script works with inches.
  62. rem If pub has other measureunits 
  63. rem this will be restored at the end of the script.
  64. measureunits 0,0,-2
  65.  
  66. set month#m=>month
  67. set ~""(year)=>year
  68. // calculate day of the week of the 1st of the requested month
  69. set year-1900=>w
  70. set not (w%4)=>leap
  71. set w+1=>w
  72. set w+trunc(w/4-0.04)=>w
  73. set 0,3,3,6,1,4,6,2,5,0,3,5=>d
  74. set w+d(month)=>w
  75. if leap*(month<3)
  76.  set w-1=>w
  77. endif
  78. w = w-w.mon
  79. w= w%7
  80. getcolumnguides => n,...
  81. box column,left,column,top,column,n,right,column,bottom
  82. getobjectloc lefttop => xL,yT
  83. getobjectloc rightbottom => xR,yB
  84. clear
  85. minisave
  86. selectall
  87. try clear
  88. getpagerect >> ...,...,x,y
  89. getpagemargins =>l,t,r,b
  90. set xR-xL=>xmargin
  91. set yB-yT=>ymargin
  92. set xmargin/8=>xbox
  93. set ymargin/7=>ybox
  94. loop i=1,8
  95. if i # 4,7
  96.   line xL+xbox*i,yT,xL+xbox*i,yB-2*ybox
  97. else
  98.   line xL+xbox*i,yT,xL+xbox*i,yB-ybox
  99. endif
  100. endloop
  101. loop i=0,6
  102.   line xL+xbox,yT+i*ybox,xL+xbox*8,yT+i*ybox
  103. endloop
  104. set 31,28+not(year%4),31,30,31,30,31,31,30,31,30,31=>month.len
  105. size 3*min(xmargin,ymargin)
  106. indents xbox/5,0,0
  107. loop date=1,month.len(month)
  108.   set w+date-1=>weekday
  109.   newstorysized xL+xbox+xbox*(weekday%7),yT+ybox*trunc(weekday/7)+ybox/7,xL+2*xbox+xbox*(weekday%7),yT+ybox*trunc(weekday/7)+ybox
  110.   textenter ""(date)
  111. endloop
  112. deselect
  113. size 5*min(xmargin,ymargin)
  114. alignment center
  115. typestyle bold
  116. loop i=1,7
  117. newstorysized xL+xbox*i,yB-ybox+ybox/7,xL+xbox+xbox*i,yB
  118. textenter weekdays(i)
  119. endloop
  120. deselect
  121.  
  122. size 8*min(xmargin,ymargin)
  123. newstory column,left,column,bottom
  124. textenter m(month)+"     "+""(year)
  125. deselect
  126. select last,left,last,top
  127. resize bottom,y
  128. resizepct right,ymargin/xmargin*100
  129. rotate lefttop,90
  130. resize righttop,column,left,column,top
  131.  
  132. -- create little calendar for previous and next month
  133. newstorysized xL+xbox*3.125,yT+ybox*5.1,xL+xbox*4.875,yT+ybox*6
  134. size max(4,1*min(xmargin,ymargin))
  135. alignment left
  136. spaceoptions -2,-2,-2,180
  137. minitabs = 7
  138. loop i = 0,6
  139. minitabs = minitabs,0,2*xbox*i/7.5," "
  140. endloop
  141. tabs minitabs
  142. indents 0,0,0
  143. month.prev = month-1
  144. year.prev = year
  145. if month.prev=0
  146.     month.prev = 12
  147.     year.prev = year.prev-1
  148. endif
  149. textenter m(month.prev)
  150. textenter " 
  151. "
  152. w.prev = w + 70 - month.len(month.prev)
  153. w.prev = w.prev%7
  154. if w.prev
  155. loop i = 1,w.prev
  156.     textenter "    "
  157. endloop
  158. endif
  159. loop i = 1,month.len(month.prev)
  160.     textenter ""(i)+"    "
  161.     if (w.prev+i)%7=0
  162.         textselect -char
  163.         textenter "
  164. "
  165.     endif
  166. endloop
  167. deselect
  168. select last,left,last,top
  169. getobjectloc top >> ...,y1
  170. getobjectloc bottom >> ...,y2
  171. textedit;selectall 
  172. spaceoptions -2,-2,-2,min(180*0.85*ybox/(y2-y1),200)
  173. newstorysized xL+xbox*6.125,yT+ybox*5.1,xL+xbox*7.875,yT+ybox*6
  174. size max(4,1*min(xmargin,ymargin))
  175. alignment left
  176. spaceoptions -2,-2,-2,180
  177. minitabs = 7
  178. loop i = 0,6
  179. minitabs = minitabs,0,2*xbox*i/7.5," "
  180. endloop
  181. tabs minitabs
  182. indents 0,0,0
  183. month.next = month+1
  184. year.next = year
  185. if month.next=13
  186.     month.next = 1
  187.     year.next = year.next+1
  188. endif
  189. textenter m(month.next)
  190. textenter " 
  191. "
  192. w.next = w +  month.len(month)
  193. w.next = w.next % 7
  194. if w.next
  195. loop i = 1,w.next
  196.     textenter "    "
  197. endloop
  198. endif
  199. loop i = 1,month.len(month.next)
  200.     textenter ""(i)+"    "
  201.     if (w.next+i)%7=0
  202.         textselect -char
  203.         textenter "
  204. "
  205.     endif
  206. endloop
  207. select last,left,last,top
  208. getobjectloc top >> ...,y1
  209. getobjectloc bottom >> ...,y2
  210. textedit;selectall
  211. spaceoptions -2,-2,-2,min(180*0.85*ybox/(y2-y1),200)
  212. deselect
  213. selectall;cut
  214. revert minisaved
  215. multiplepaste 1,0,0
  216. group
  217. deselect
  218. size size
  219. alignment alignment
  220. indents indents
  221. measureunits measureunits
  222. return 
  223.